home *** CD-ROM | disk | FTP | other *** search
/ com!online 2005 May / com_0505_1.iso / opensource / top10 / amc_install.exe / {app} / Scripts / Find & Replace.ifs < prev    next >
Encoding:
Text File  |  2002-05-11  |  618 b   |  25 lines
  1. // SCRIPTING
  2. // Find & Repace a value in a field
  3. program FindReplace;
  4. const
  5.   OldValue = '';
  6.   NewValue = '';
  7.   Field = -1;
  8.   WholeFieldOnly = False;
  9. begin
  10.   if ((OldValue = '') and (NewValue = '')) or (Field = -1) then
  11.   begin
  12.     ShowMessage('Please modify default values for "OldValue" or "NewValue" and "Field"');
  13.     Error;
  14.   end;
  15.   if WholeFieldOnly then
  16.   begin
  17.     if GetField(Field) = OldValue then
  18.       SetField(Field, NewValue);
  19.   end else
  20.   begin
  21.     if Pos(OldValue, GetField(Field)) > 0 then
  22.       SetField(Field, StringReplace(GetField(Field), OldValue, NewValue));
  23.   end;
  24. end.
  25.